home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 January / inter@ivo 1997-01.iso / cybint12 / bin / gforum.dxr / 00039.ls < prev    next >
Encoding:
Text File  |  1996-12-14  |  667 b   |  38 lines
  1. on exitFrame
  2.   global act
  3.   if act = 0 then
  4.     if rollOver(16) then
  5.       cursor([901, 902])
  6.       go("g")
  7.     else
  8.       if rollOver(19) or rollOver(20) then
  9.         cursor([901, 902])
  10.       else
  11.         HotSpots(3, 14)
  12.       end if
  13.     end if
  14.   end if
  15.   if act = 1 then
  16.     if rollOver(22) or rollOver(23) then
  17.       cursor([901, 902])
  18.     else
  19.       cursor(-1)
  20.     end if
  21.   end if
  22.   if the visible of sprite 25 = 1 then
  23.     onVis(26)
  24.     InVis(25)
  25.     startTimer()
  26.     repeat while the timer < 5
  27.       nothing()
  28.     end repeat
  29.   else
  30.     if the visible of sprite 26 = 1 then
  31.       onVis(25)
  32.       InVis(26)
  33.     end if
  34.   end if
  35.   updateStage()
  36.   go(the frame)
  37. end
  38.